home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
os2
/
octa209s.zip
/
octave-2.09
/
libcruft
/
fftpack
/
cffti.f
< prev
next >
Wrap
Text File
|
1996-07-19
|
238b
|
10 lines
subroutine cffti (n,wsave)
implicit double precision (a-h,o-z)
dimension wsave(1)
if (n .eq. 1) return
iw1 = n+n+1
iw2 = iw1+n+n
call cffti1 (n,wsave(iw1),wsave(iw2))
return
end